www.gusucode.com > 婚庆仪礼策划公司网站系统源代码 梦紫色 > 婚庆仪礼策划公司网站系统源代码 梦紫色/left.asp

    	<SCRIPT FOR=window EVENT=onload LANGUAGE="javascript">
initAd();//载入页面后，调用函数initAd()
</SCRIPT>
<script language="javascript">
<!--
function initAd() {
document.all.AdLayer.style.posTop = -200;
//设置onLoad事件激发以后，广告层相对于固定后的y方向位置
document.all.AdLayer.style.visibility = 'visible'//设置层为可见
MoveLayer('AdLayer');//调用函数MoveLayer()
}
function MoveLayer(layerName) {
var x = 0;//浮动广告层固定于浏览器的x方向位置
var y = 160;//浮动广告层固定于浏览器的y方向位置
var diff = (document.body.scrollTop + y - document.all.AdLayer.style.posTop)*.90;
var y = document.body.scrollTop + y - diff;
eval("document.all." + layerName + ".style.posTop = y");
eval("document.all." + layerName + ".style.posright = x");//移动广告层
setTimeout("MoveLayer('AdLayer');", 0);//设置20毫秒后再调用函数MoveLayer()
}
//-->
</script>
<div id=AdLayer style='position:absolute; text-align:center; width:220px; height:200px; z-index:20; left: 65px; top: 10px'>
	
	
	
	<TABLE height=43 cellSpacing=0 cellPadding=0 width=220 align=center 
      bgColor=#f7effa border=0>
        <TBODY>
        <TR>
          <TD vAlign=top width=8>&nbsp;</TD>
          <TD vAlign=top align=middle width=206>
            <TABLE height=129 cellSpacing=0 cellPadding=0 width=206 align=center 
            border=0>
              <TBODY>
              <TR>
                <TD vAlign=top align=middle width=206 height=52><IMG height=52 
                  src="images/page_cdk1.gif" width=206></TD></TR>
              <TR>
                <TD vAlign=top align=middle 
                background="images/page_cdk2.gif" style="background-image:url(images/page_cdk2.gif);  background:url(images/page_cdk2.gif);">
                  <TABLE cellSpacing=0 cellPadding=0 width=200 align=center 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD vAlign=top width=14>&nbsp;</TD>
                      <TD vAlign=top width=186>
                        <TABLE height=27 cellSpacing=1 cellPadding=0 
                        align=center border=0>
                          <TBODY>
						  
						  
						  <%
sql = "SELECT * FROM P_class order by orders asc  "
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.OPEN sql,Conn,1,1
if rs2.recordcount = 0 then 
response.Write("没有添加服务导航类别")
else
%>
			               
                            <%do while not rs2.eof
%>
						  
                          <TR>
                            <TD 
                            style="PADDING-LEFT: 10px; BORDER-BOTTOM: #d2d2d2 1px solid" 
                            noWrap width=171 height=27 align="left"><IMG height=14 
                              src="images/list4.jpg" width=15> 
                           <a  href=fwdh.asp?classtype=<%=rs2("p_type")%> ><%if trim(classtype) =trim(rs2("p_type")) then%><strong><%=rs2("p_type")%></strong><%else%><%=rs2("p_type")%><%end if%></a></TD></TR>
                        
					<%
		
					rs2.movenext
					loop
					
					rs2.close
					Set rs2=Nothing
					%>
			
			<%end if%>
		  
						
						
						
						</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR>
              <TR>
                <TD vAlign=top align=middle height=14><IMG height=14 
                  src="images/page_cdk3.gif" width=206></TD></TR></TBODY></TABLE>
            <TABLE height=5 cellSpacing=0 cellPadding=0 width="100%" 
            align=center bgColor=#f7effa border=0>
              <TBODY>
              <TR>
                <TD></TD></TR></TBODY></TABLE>
            </TD>
          <TD vAlign=top width=6>&nbsp;</TD></TR></TBODY></TABLE>
	
	</div>